(define (treemap proc tree) 
  (map (lambda (x) 
         (cond ((null? x) '()) 
               ((not (pair? x)) (proc x)) 
               (else (sq-tree-with-map proc x)))) ) ) 
